home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
prgtools
/
euphor14.zip
/
KEY.EX
< prev
next >
Wrap
Text File
|
1996-02-18
|
364b
|
17 lines
-- find out what numeric key code is generated by any key on the keyboard
-- usage:
-- ex key
integer code
puts(1, "Press any key. I'll show you the key code. Press q to quit\n\n")
while 1 do
code = get_key()
if code != -1 then
printf(1, "The key code is: %d\n", code)
if code = 'q' then
exit
end if
end if
end while